unit MyTypes;

{$mode objfpc}{$H+}

interface

uses Classes;

type
TNNTPServer = class
private
protected
public
  id: Integer;
  name : string;
  port : string;
  userName : string;
  password : string;
  constructor Create();
end;

TGroup = class
private
protected
public
  Id: Integer;
  ServerId: Integer;
  Name : string;
  FirstNumber : integer;
  LastNumber : integer;
  Date: TDateTime;
  constructor Create;
end;

TGroupList = array of TGroup; {Так определяется динамический массив
                              http://www.delphisources.ru/pages/faq/faq_delphi_basics/Array.php.html}

TMessage = class
private
protected
public
  Id: Integer;
  GroupId: Integer;
  Number : integer;
  Head: string;
  Text : TStringList;
  Codepage : string;
  constructor Create;
end;

TMessageList = array of TMessage;  {См выше}

implementation

constructor TNNTPServer.Create();
begin
end;

constructor TGroup.Create();
begin
end;

constructor TMessage.Create();
begin
end;

end.
